Top 10k strings from Pastimes 1 (1982)(Sinclair Research)(16k).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Various - [TZX] (TOSEC-v2006-06-06) /
Back to the directory listing
4 Tower of Hanoi
2 ;s$;s$;s$;s$;s$
2 ;''"When you are ready to start, press any letter."
2 ;"Error - invalid move"
2 ;"123456789"
1 row 3 column 5
1 press any letter
1 press SPACE
1 number? "
1 move(n,s,f)=[move(n-1,s,i);move(1,s,f);move(n-1,i,f)]
1 land in a space
1 keys 5 to 8
1 k(s)=k(s)-1
1 k(f)=k(f)+1
1 k(b)=k(b)+1
1 k(a)=k(a)-1
1 just one peg";
1 its row number and column number
1 i(g);a$(g)
1 i(e);a$(e);
1 i(d);a$(d);
1 h$(s,k(s))=" ":
1 h$(f,k(f))=h$(s,k(s)):
1 h$(b,k(b))=h$(a,k(a)):
1 h$(a,k(a)+1
1 h$(a,k(a))>h$(b,k(b))
1 goes=goes+1
1 finishwith
1 face side down
1 d$="Error - used already "
1 c$="OOOOOOOOO"
1 b$=" OOO "
1 a$="ABCDEFGHIJKLMNOPQRSTUWXY"
1 a$(n)=a$(m)
1 a$(a)=a$(b)
1 YOU choose
1 Where to?
1 The optimum for a tower of this size is ";2
1 T 2
1 S S
1 Press appropriate arrow on
1 Please type W to watch the"'"computer play. If you yourself wish to play, press any other letter.
1 No discs to move
1 N y
1 Invalid move
1 I have won!
1 From which tower shall I move "'"the top disc?"
1 F
1 Created with Ramsoft MakeTZX
1 Congratulations
1 CONGRATULATIONS!
1 Better luck next time ...
1 ;s$;s$;s$;s$
1 ;n;" in the pile! "
1 ;n;" disc"+("s"
1 ;h;" pegs left"
1 ;''"This leaves:":
1 ;'"How many are you going to take this time?"
1 ;"centre";
1 ;"To continue, press any letter"
1 ;"This time I am taking ";x;"."'"This leaves:"
1 ;"Select second card"
1 ;"Select first card "
1 ;"Position ";s
1 ;"Position ";f
1 ;"No valid move left"
1 ;"How many would you like in the pile? (between 9 and 999)"
1 ;"GOODBYE!"
1 ;"Error - please re-enter "
1 ;"Error - no peg here"
1 ;"Do you want to go first?"
1 ;"Completed in ";2
1 ;"... and, where to?
1 ;"*** SOLITAIRE ***"
1 ;"*";a$(n)
1 ;"*";a$(m)
1 ;" of the board."
1 ;" move"+("s"
1 ;" - positioned in the ";
1 ;" To play again, press A"," To stop, press S"
1 ;" 1 2 3 4 5 6 7 8"''
1 ;" 1 2 3 4 5 6 7 8"
1 ;" You almost made it!"
1 ;" Press S to stop"
1 ;" Press A to play again"
1 ;" "
1 ;" "
1 2 each of 24 letters
1 . The peg you jump over is removed."
1 *** FIND THE MATE ***
1 )=" ":
1 (and ENTER). "
1 '''"The player who takes the
1 '''"The object of this game is to move a number of discs between three positions
1 '''"In this game the computer and you take it in turns to remove from
1 '''"2. A disc can only be moved onto a larger disc, not a smaller one."
1 '''"1. You can only move one disc at a time."
1 ''"The aim of the game is to
1 ''"Thank you. ";
1 ''"Number out of range. Please choose again.":
1 ''"In this game you start with 44 pegs and one space."
1 ''"In this game the computer will shuffle a pack of cards in whichthere are
1 ''"How many discs do you want(1-9)?"
1 '"You achieved this in ";goes;" goes"
1 '"Where should the tower start,"'"(position 1, 2 or 3)?"
1 '"Where should the tower finish, (position 1, 2 or 3)?"
1 '"It will then display the cards
1 '"For example,
1 '"... and it's in the right place!"
1 '"(Take 1, 2, 3 - or 0 to resign.)"
1 "To stop,
1 "To play again,
1 to play again";
1 to move from?";s$
1 over an adjacent peg to
1 objects from a pile."
1 obeying the"'"following rules
1 is entered as
1 how many to have in the pile initially, and who is to have the first move."
1 have to work out which card matches which. Select each cardby entering
1 for yes"''" -
1 by making one peg
1 - pair ";t;"
1 - just the one peg left ..."
1 - all gone
1 You have won!
1 Press any key to continue
1 You did it in ";m;" move"+("s"
1 "'" "
1
1